home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 3 / Digital_Talk_03_1993-10-18_Digital_Talk_de_Side_B.d64 / luck part 1.1! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  16KB  |  455 lines
  1. 0 goto 10
  2. 10 clr:raum=16:be$="[200]allo!":pa=1
  3. 20 rem ********************************
  4. 30 rem *   sternen - hero             *
  5. 40 rem * ein teiladventure zum anreiz *
  6. 50 rem * exclusiv fuer dt.   banana j.*
  7. 60 rem ********************************
  8. 70 :
  9. 80 :
  10. 90 :
  11. 95 poke53280,0:poke53281,0:print"[147]"
  12. 96 goto 63010
  13. 100 rem *******************************
  14. 105 gosub 55000:rem titel
  15. 110 if raum=  2 then 50000:rem  bus
  16. 120 if raum=  5 and do=1 then51300
  17. 122 if raum=  5 and fw=1 then51200
  18. 124 if raum=  5 then 50100:
  19. 130 if raum=  6 then 50200:rem  strasse
  20. 140 if raum=  7 then 50300:rem  plakat
  21. 150 if raum=  9 then 50400:rem  m und m
  22. 160 if raum= 10 then 50500:rem  innens
  23. 170 if raum= 11 and autemat then 51100
  24. 175 if raum= 11 then 50600:
  25. 180 if raum= 13 then 50700:rem  lasers
  26. 190 if raum= 14 then 50800:rem  grafity
  27. 200 if raum= 15 then 50900:rem  gasse
  28. 210 if raum= 16 then 51000:rem  hauptq
  29. 999 :
  30. 1000 rem ******************************
  31. 1001 rem *                            *
  32. 1002 rem ******************************
  33. 1003 :
  34. 1010 print" [159][204]etzter [194]efehl = [146] ";befehl$
  35. 1020 input" [215]as nun, [204]uck   ";befehl$
  36. 1030 :
  37. 1050 if befehl$="n"orbe$="norden" then 3000
  38. 1060 if befehl$="s"orbe$="sueden" then 3100
  39. 1070 if befehl$="w"orbe$="westen" then 3200
  40. 1080 if befehl$="o"orbe$="osten"  then 3300
  41. 1090 if befehl$=""then print"[158][214]on nichts kommt nichts!":goto 1000
  42. 1100 if befehl$="hilfe"orbe$="verben"then 60000
  43. 1110 if befehl$="blick"orbe$="blicke" then 100
  44. 1120 if befehl$="liste"orbe$="inventar" then 60100
  45. 1130 if befehl$="load"orbe$="lade"then 20100
  46. 1140 if befehl$="save"orbe$="sichern"then 20000
  47. 1150 :
  48. 1160 i=1
  49. 1170 ifmid$(be$,i,1)=" "thenve$=left$(be$,i-1):ob$=right$(be$,len(be$)-i):goto2000
  50. 1180 if i <> len(befehl$)then i=i+1:     goto1170
  51. 1190 print"[158][193]eh - ich muss zugeben dass ich das"
  52. 1192 print" nicht kann!":goto 1000
  53. 1195 :
  54. 1198 :
  55. 1199 :
  56. 2000 if verb$<>"lies" and verb$<>"lese" then 2100
  57. 2010 if ob$<>"sprueherei" or raum <>14 then 2030
  58. 2020 print"[158][196]a steht :  '[196]er [201]mperator ist doof'":goto 60080
  59. 2030 if ob$<>"automat"    or raum <>11 then 2040
  60. 2031   print"[158][196]u liest : '[194]itte werfen sie ihr ganzes"
  61. 2032 print"            [199]eld ein'":goto 60080
  62. 2040 if right$(ob$,3)<>"box" or pdbox=0 then 2050
  63. 2041 print"[205]aster-[205][205] [211]oft  -  jetzt mit ueber"
  64. 2042   print"2.000.000 [196]isketten im [193]ngebot."
  65. 2043   print"[204]esen [211]ie bitte auch unser [208]lakat in"
  66. 2044   print"der [206]aehe des [205]arktplatzes!
  67. 2045 [137] 60080
  68. 2050 [139] ob$[179][177]"geld" [176] ge[179][177]1 [167] 2090
  69. 2060 [153]"sysstr$u liest :   '(NULL)val(NULL) (NULL)valright$(NULL)valclose(NULL)str$-(NULL)(NULL)asc(NULL)(NULL)atn(NULL)val"
  70. 2065 [153]"             (NULL)lenleft$(NULL)valright$peek(NULL) (NULL)str$val(NULL) (NULL)valright$(NULL)val (NULL)(NULL)(NULL)-"
  71. 2070 [153]"              lenleft$val right$(NULL) (NULL)val(NULL)(NULL)valleft$(NULL) peek(NULL)right$(NULL)chr$(NULL)"
  72. 2075 [153]"             (NULL)right$(NULL)str$ (NULL)right$(NULL) (NULL)val(NULL)(NULL)right$(NULL) (NULL)(NULL)right$val(NULL)val(NULL)"
  73. 2080 [153]"              (NULL)right$lenleft$(NULL) (NULL)(NULL)(NULL)val(NULL) 17 mid$atnleft$(NULL)val"
  74. 2085 [153]"                   peekval(NULL)(NULL)(NULL)atnasc(NULL)!!":[137] 60080
  75. 2090 [153]"sys    (NULL)owas hat's hier nich! (NULL)ei halt"
  76. 2092 [153]"      nich' immer so ausgefallen!":[137] 1000
  77. 2097 :
  78. 2098 :
  79. 2099 :
  80. 2100 [139] verb$[179][177]"kauf" [175] verb$[179][177]"kaufe"[167] 2200
  81. 2110 [139] [201](ob$,3)[179][177]"box" [176] raum [179][177] 9 [167] 2190
  82. 2120 [139] ge[178]0 [176] ge[178]2 [167] 2180
  83. 2125 [139] do[178]1 [167] 2180
  84. 2130   [153]"sysstr$u gibst den (NULL)chein einem (NULL)assenautomat.";
  85. 2140   [153]"(NULL)eider klemmt er. str$u bekommst zwar das"
  86. 2145   [153]"(NULL)ag aber leider kein (NULL)echselgeld."
  87. 2150   [153]"valin grosses (NULL)child ueber dem atnutomaten"
  88. 2155   [153]"erinnert an (NULL)urphy's chr$esetz : 'str$agegen-"
  89. 2160 [153]"treten left$ilft (NULL)ur peekei atnnderen!'":pdbox[178]1:geld[178]2:[137] 60080
  90. 2180 [139] geld [178]0 [167] 2190
  91. 2185   [153]"sys         str$atnasc(NULL)val(NULL) (NULL)right$(NULL)(NULL)(NULL)(NULL) str$(NULL) str$valright$(NULL)
  92. 2187   print"[158]         [199][197][204][196] '[210][193][213][211][215][197][210][198][197][206] ????":goto 1000
  93. 2190 print"[158][196]ummerweise hast du keine [203]ohle.":goto 1000
  94. 2197 :
  95. 2198 :
  96. 2199 :
  97. 2200 if verb$<>"nimm" and verb$<>"nehme"then 2300
  98. 2210 if right$(ob$,3)<>"box" or raum<>9 then2220
  99. 2215 print"[158][196]u, ich glaub' fast die muss man [203][193][213][198][197][206]!":goto 60080
  100. 2220 if ob$<>"geld" or ra<>11 then 2250
  101. 2225 if ge<>0 or au<>1 then 2250
  102. 2230 if do =1 or pd =1 then 2250
  103. 2235 print"[158][196]u steckst den 17.50 [195][210] [211]chein ein."
  104. 2240 print"[197]in [194]ild von [198]red [195]lever ist darauf.":ge=1:goto 60080
  105. 2250 if ob$<>"bus" or ra<>2 then 2260
  106. 2255 goto 61000:rem fertig***********
  107. 2260 if ob$<>"automat" or ra<>11 then2270
  108. 2265 print"[158][206]a und wo willst du den unterbringen[160]?":goto 60080
  109. 2270 if ob$<>"muelltonne" or ra<>13 then 2280
  110. 2275 print"[158][196]u wirst doch nicht eine [205]uelltonne mit"
  111. 2277 print"dir herumschleppen wollen?":goto 60080
  112. 2280 if ob$<>"wesen"orra<>5 then 2290
  113. 2285 print"[158][196]as passt dem [215]esen aber gar nicht...":goto 1000
  114. 2290 print"[158][215]oher nehmen, selbst wenn stehlen ???"
  115. 2295 goto 1000
  116. 2297 :
  117. 2298 :
  118. 2299 :
  119. 2300 if verb$<>"gib"  and verb$<>"gebe" then 2400
  120. 2310 if right$(ob$,3)<>"box" or raum <>5 then 2350
  121. 2325 if pdbox<>1then 2347
  122. 2330 print"[158][196]u gibst dem [215]esen die [208][196]-[194][207][216]. [196]ieses"
  123. 2335 print"laedt dich zu einem [196]rink ein. [197]inem"
  124. 2340 print"[208]arangalaktischen [196]onnergurgler! [196]a du"
  125. 2345 print"[193]ber nicht durstig bist steckst du ihn":print"ein."
  126. 2346 pdbox=2:do=1:goto 60080
  127. 2347 print"[158][199]ute [201]dee! [200]ast du aber nich'!":goto 1000
  128. 2350 print"[158][214]ersuch mal 'n anderes [214]erb":goto 1000
  129. 2397 :
  130. 2398 :
  131. 2399 :
  132. 2400 if verb$<>"tritt"and verb$<>"trete"then 2500
  133. 2410 if ob$<>"automat" or raum<>11 then 2450
  134. 2415 if au<>0 then 2450
  135. 2420 print"[158][201]nstinktiv latscht du einmal kraeftig"
  136. 2425 print"gegen das [196]ing. [208]loetzlich hoerst du"
  137. 2430 print"es klingeln. [201]n grossen [194]uchstaben"
  138. 2435 print"leuchtet das [215]ort [202][193][195][203][208][207][212] auf. [197]in [199]eld-";
  139. 2440 print"schein ueber 17,50 [195][210] flattert ins"
  140. 2445 print"[193]usgabefach":au=1:goto 60080
  141. 2450 if ob$<>"muelltonne" or ra<>13      then 2470
  142. 2452 if la <>0 then 2467
  143. 2455 print"[158][196]u gehst deinem [200]obby nach : [205]uelltonnen";
  144. 2460 print"kicken. [205]it lautem [199]etoese faellt diese"
  145. 2462 print"um. [197]in [204]aserschwert rollt heraus. [215]as"
  146. 2464 print"mache [204]eute nicht alles so wegwerfen?"
  147. 2466 print"[196]u steckst es ein.":mu=1:la=1:goto 60080
  148. 2467 print"[158][200]ast du erwartet noch eins zu finden ?":goto 1000
  149. 2470 if ob$<>"wesen" and ra <>5 then 2490
  150. 2475 if raum <> 5  then 2490
  151. 2480 print"[158][196]as passt dem [215]esen aber gar nicht...":goto 1000
  152. 2490 print"[158][211]chone deine [194]eine lieber.":goto 1000
  153. 2497 :
  154. 2498 :
  155. 2499 :
  156. 2500 if verb$<>"frage"and verb$<>"frag" then 2600
  157. 2510 if ob$<>"wesen" or gu<>0 then 2590
  158. 2515 if ra<>5 then 2590
  159. 2520 print"[158][196]u setzt dich zu ihm an den [212]resen. [197]s"
  160. 2530 print"fragt dich sogleich ob du ebenfalls ein"
  161. 2540 print"[208][196]-[198]reund bist. [196]iese [198]rage bejast du"
  162. 2550 print"natuerlich (sonst wuerdest du das hier"
  163. 2560 print"ja kaum spielen). [196]u erfaehrst weiterhin";
  164. 2565 print"dass das [215]esen [211]ammler der [208][196]-[194][207][216] ist."
  165. 2570 print"[204]eider hat es jedoch die aktuelle [193]us-"
  166. 2580 print"gabe (#27411) noch nicht.":fw=1:goto 60080
  167. 2590 print"[158][215]as ist der [211]inn des [204]ebens?":goto 1000
  168. 2597 :
  169. 2598 :
  170. 2599 :
  171. 2600 if verb$<>"benutz"andverb$<>"benutze"then2700
  172. 2610 if ob$<>"intergalaktischen hyperexpressraumlinienroutengleiter" then 2690
  173. 2620 if ra<>2 then 2690
  174. 2630 goto 61000:rem ****  fertig  ****
  175. 2690 print"[158][196]u kannst hier nichts benutzen":goto 1000
  176. 2697 :
  177. 2698 :
  178. 2699 :
  179. 2700 if verb$<>"trink"and verb$<>"trinke"then1190
  180. 2710 if right$(ob$,7)<>"gurgler" then 2790
  181. 2720 if do=0 then 2780
  182. 2730 print"[158] [194]in ich denn bescheuert ???":goto 1000
  183. 2780 print"[158] [199]ute [201]dee! [200]ast du aber nich'":goto 1000
  184. 2790 print"[158] [200]at dir denn keiner beigebracht, dass"
  185. 2792 print" man [196][193][211] nicht trinken kann ?":goto 1000
  186. 2797 :
  187. 2798 :
  188. 2799 :
  189. 3000 rem ******************************
  190. 3002 rem ***       norden           ***
  191. 3010 if raum= 6then raum= 2:goto 3050
  192. 3015 if raum=10then raum= 6:goto 3050
  193. 3020 if raum=11then raum= 7:goto 3050
  194. 3025 if raum=14then raum=10:goto 3050
  195. 3030 if raum=15then raum=11:goto 3050
  196. 3040 print"[158][196]a wuerdest da aber vor'ne [215]and laufen!":goto 1000
  197. 3050 :
  198. 3060 print"[147]         [196]u gehst nach [206]orden !"
  199. 3070 fori=0to600:next:goto 100
  200. 3100 rem ******************************
  201. 3102 rem ***       sueden           ***
  202. 3110 if raum= 2then raum= 6:goto 3150
  203. 3115 if raum= 6then raum=10:goto 3150
  204. 3120 if raum= 7then raum=11:goto 3150
  205. 3125 if raum=10then raum=14:goto 3150
  206. 3130 if raum=11then raum=15:goto 3150
  207. 3140 print"[158][196]a wuerdest da aber vor'ne [215]and laufen!":goto 1000
  208. 3150 :
  209. 3160 print"[147]         [196]u laeufst nach [211]ueden!"
  210. 3170 fori=0to600:next:goto 100
  211. 3200 rem ******************************
  212. 3202 rem ***       westen           ***
  213. 3210 if raum= 6then raum= 5:goto 3250
  214. 3215 if raum= 7then raum= 6:goto 3250
  215. 3220 if raum=10then raum= 9:goto 3250
  216. 3225 if raum=11then raum=10:goto 3250
  217. 3230 if raum=14then raum=13:goto 3250
  218. 3235 if raum=16then raum=15:goto 3250
  219. 3240 print"[158][196]a wuerdest da aber vor'ne [215]and laufen!":goto 1000
  220. 3250 :
  221. 3260 print"[147]      [196]u laeufst [210]ichtung [215]esten!"
  222. 3270 fori=0to600:next:goto 100
  223. 3300 rem ******************************
  224. 3302 rem ***       osten            ***
  225. 3310 if raum= 5then raum= 6:goto 3350
  226. 3315 if raum= 6then raum= 7:goto 3350
  227. 3320 if raum= 9then raum=10:goto 3350
  228. 3325 if raum=10then raum=11:goto 3350
  229. 3330 if raum=13then raum=14:goto 3350
  230. 3335 if raum=15then raum=16:goto 3350
  231. 3340 print"[158][196]a wuerdest da aber vor'ne [215]and laufen!":goto 1000
  232. 3350 :
  233. 3360 print"[147]      [196]u bewegst dich nach [207]sten!"
  234. 3370 fori=0to600:next:goto 100
  235. 20000 rem *****************************
  236. 20010 rem           save
  237. 20020 rem *****************************
  238. 20030 open 21,8,1,"luck save"
  239. 20040    print#21,part:print#21,raum
  240. 20050    print#21,laserschwert
  241. 20060    print#21,geld
  242. 20070    print#21,pdbox
  243. 20080    print#21,donnergurgler
  244. 20090 close 21
  245. 20095 print"[158][211]pielstand abgespeichert!":goto 60080
  246. 20100 rem *****************************
  247. 20110 rem           load
  248. 20120 rem *****************************
  249. 20130 open 21,8,0,"luck save"
  250. 20140    input#21,part:input#21,raum
  251. 20150    input#21,laserschwert
  252. 20160    input#21,geld
  253. 20170    input#21,pdbox
  254. 20180    input#21,donnergurgler
  255. 20190 close 21
  256. 20195 print"[158][211]pielstand eingeladen!":goto 60080
  257. 50000 rem ///  haltestelle (2)
  258. 50005 print"[196]u stehst an der [200]altestelle der inter-"
  259. 50010 print"galaktischen [200]yperexpressraumlinienrou-"
  260. 50015 print"tengleiter. [215]enn du zum [210]aumflughafen"
  261. 50020 print"moechtest dann gib 'benutze intergalak-"
  262. 50025 print"tischen [200]yperexpressraumlinienrouten-"
  263. 50030 print"gleiter' oder einfach 'nimm bus' ein."
  264. 50035 print:print"[214]ielleicht sollte ich dir sagen, dass"
  265. 50040 print"du von hier einen [208]arangalaktischen"
  266. 50045 print"[196]onnergurgler (ein [196]rink wie ein [193]uto-"
  267. 50050 print"unfall; naeheres siehe: '[208]er [193]nhalter"
  268. 50055 print"[196]urch [196]ie [199]alaxis') u. ein [204]aserschwert"
  269. 50060 print"mitnehmen solltest."
  270. 50065 print:print"[205]oegliche [210]ichtungen :  [211]ueden":goto 1000
  271. 50100 rem /// bar  (5)
  272. 50105 print"[196]u befindest dich in einer dunklen [194]ar."
  273. 50110 print"[198]enster hat's hier keine. [193]uf einem [214]i-"
  274. 50115 print"sor (wie ein [198]ernseher, nur 7-[196]imensi-"
  275. 50120 print"onal) wird gerade das [200]albfinale von"
  276. 50125 print"[210][213][206][206][201][206][199] [205][193][206] uebertragen.[199]erade is' so'n"
  277. 50130 print"ulkiger [212]ype mit [199]latze, [211]pitzbart und"
  278. 50135 print"einem [212]-[211]hirt mit '[199]v[199]'-[193]ufdruck (wahr-"
  279. 50140 print"scheinlich irgendso'n [214]erein) in der"
  280. 50145 print"[193]rena. [213]nwilkuerlich musst du grinsen."
  281. 50150 print"   [193]m [212]resen sitzt ein angetrunkenes"
  282. 50155 print"[215]esen, vermutlich aus dem [194]eitegeuze"
  283. 50160 print"[211]ystem.":print"[197]s schaut dich an."
  284. 50165 print:print"[196]u siehst : [154][215]esen[146]":print"[205]oegliche [210]ichtungen :  [207]sten"
  285. 50170 goto 1000
  286. 50200 rem ///     hauptstrasse  (6)
  287. 50205 print"[196]u stehst an der intergalaktischen [200]y-"
  288. 50210 print"perexpressraumroute, oder plump gesagt,"
  289. 50215 print"an der [200]auptstrasse. [201]m [206]orden siehst"
  290. 50220 print"du eine [204]iniengleiter-[200]altestelle, im"
  291. 50225 print"[215]esten kannst du eine [194]ar ausmachen, im"
  292. 50230 print"[211]ueden geht's in die [200]auptstadt. [193]n der"
  293. 50235 print"[200]auswand ist ein [211]child '[218]um [208]lakat'."
  294. 50240 print"[197]s zeigt nach [207]sten."
  295. 50245 print:print"moeglich [210]ichtungen :  alle":goto 1000
  296. 50300 rem ///    plakat (7)
  297. 50305 print"[196]u stehst vor einem grossen [208]lakat, das"
  298. 50310 print"einzige in der [211]tadt uebrigens!"
  299. 50315 print"[196]u liest:   [208][196]-[194][207][216]  -  [196]as ultimative"
  300. 50320 print"[208]apermag fuer jeden [208][196]-[198]reak. [218]u haben"
  301. 50325 print"[194]ei [205]aster-[205][205] [211]oft, [211]ingerstr. 11, in"
  302. 50330 print"01257 [196]resen und in jeder [198]iliale. [211][207],"
  303. 50335 print"jetzt weist du's!"
  304. 50340 print:print"[205]oegliche [210]ichtungen :  [211]ueden, [215]esten":goto 1000
  305. 50400 rem /// m&m  (9)
  306. 50405 print"[196]u gehst in den [204]aden. [211]ofort kommt ein"
  307. 50410 print"[194]utler, der dir die [202]acke abnimmt. [214]om"
  308. 50415 print"[195]hef persoehnlich wirst du in einen der"
  309. 50420 print"[208]raesentationsraeume gefuehrt wo dir"
  310. 50425 print"eine [210]eihe huebscher [205]odels die neusten"
  311. 50430 print"[208][196]-[208]rogramme vorfuehren. [196]u lehnst aber"
  312. 50435 print"dankend ab."
  313. 50440 if pdbox then 50460
  314. 50445 print"[196]u siehst dich um. [193]n der [203]asse stehst"
  315. 50450 print"ein [211]tapel [208][196]-[194][207][216]en. [211]ie sehen sehr informativ aus!"
  316. 50455 print:print"[196]u siehst :  [154][208][196]-[194][207][216][146]"
  317. 50460 print"[205]oegliche [210]ichtungen :  [207]sten":goto 1000
  318. 50500 rem /// innenstadt  (10)
  319. 50505 print"[196]u stehst in der [201]nnenstadt des [196]orfes"
  320. 50510 print"(hoert sich irgendwie paradox an, gell?)";
  321. 50515 print"[201]m [206]orden ist die [200]auptstrasse, oest-"
  322. 50520 print"lich von dir ist der [205]arktplatz, im [215]es-";
  323. 50525 print"ten siehst du eine [198]iliale von [205]aster-"
  324. 50530 print"[205][205] [211]oft die ich an dieser [211]telle grue-"
  325. 50535 print"ssen moechte! [206]ach [211]ueden fuehrt eine"
  326. 50540 print"enge [211]eitenstrasse."
  327. 50545 print:print"[205]oeglich [210]ichtungen :  alle"
  328. 50550 goto 1000
  329. 50600 rem ///  marktplatz  (11)
  330. 50605 print"[196]u befindest dich auf dem [205]arktplatz -"
  331. 50610 print"sofern man das noch [205]arktplatz nennen"
  332. 50615 print"kann. [193]lles ist sehr futuristisch (kein"
  333. 50620 print"[215]under, du bist ja auch in der [218]ukunft)"
  334. 50625 print"   [197]in [210]ot-[215]eisser [195]oco-[195]ola [193]utomat"
  335. 50630 print"faellt dir sofort ins [193]uge."
  336. 50631 print"[196]u kennst diesen [212]yp. [197]in [203]/[216]8, [194]aujahr"
  337. 50632 print"'93. [196]ie [196]inger klemmen immer dann, wenn";
  338. 50633 print"man 'was reinschmeisst."
  339. 50635 print"[201]m [215]esten geht's in die [201]nnenstadt."
  340. 50640 print:print"[196]u siehst :  [154][193]utomat"
  341. 50645 print"[205]oeglich [210]ichtungen :  [206], [211], [215]
  342. 50650 [137] 1000
  343. 50700 [143] ///   muelltonne  (13)
  344. 50705 [153]"str$u bist ein einer (NULL)ackgasse. atnn den"
  345. 50710 [153]"left$aeuserwaenden liegt (NULL)uell herum. right$n"
  346. 50715 [153]"einer valcke kannst du die dazugehoerige"
  347. 50720 [153]"(NULL)uelltonne ausmachen. atnnsonsten is'"
  348. 50725 [153]"hier total tote left$ose."
  349. 50730 [153]:[153]"str$u siehst : cont(NULL)uelltonnewait"
  350. 50735 [153]"(NULL)oeglich (NULL)ichtungen :  nur (NULL)sten"
  351. 50740 [137] 1000
  352. 50800 [143] ///      sprueherei  (14)
  353. 50805 [153]"str$u gehst die (NULL)eitenstrasse entlang. atnls"
  354. 50810 [153]"du versehentlich einer (NULL)pace-(NULL)atte auf"
  355. 50815 [153]"den (NULL)chwanz trittst quickt diese laut"
  356. 50820 [153]"auf und verschwindet zwischen ein paar"
  357. 50825 [153]"(NULL)uellcrunchern. atnn der (NULL)and ueber den"
  358. 50830 [153]"(NULL)uellcrunchern ist eine (NULL)prueherei."
  359. 50835 [153]:[153]"str$u siehst :  cont(NULL)pruehereiwait"
  360. 50840 [153]"(NULL)oegliche (NULL)ichtungen :  (NULL)orden, (NULL)esten":[137] 1000
  361. 50900 [143] ///   gasse    (15)
  362. 50905 [153]"str$u bist in einer dunklen chr$asse. right$m (NULL)or-"
  363. 50910 [153]"den kannst du den (NULL)arktplatz deines"
  364. 50915 [153]"str$orfes erblicken. (NULL)estlich von dir ist"
  365. 50920 [153]"dein left$auptquartier"
  366. 50925 [153]:[153]"(NULL)oegliche (NULL)ichtungen :  (NULL)orden, (NULL)sten":[137] 1000
  367. 51000 [143] ///   hauptquartier  (16)
  368. 51005 [153]"str$u stehst vor deinem left$auptquartier. str$ie"
  369. 51010 [153]"(NULL)uer ist leider verschlossen. (NULL)un musst"
  370. 51015 [153]"du wohl oder uebel die (NULL)eise antreten."
  371. 51020 [153]"   (NULL)achdem du eine (NULL)uelltonne beiseite"
  372. 51025 [153]"gekickt hast siehst du dich um. right$n dem"
  373. 51030 [153]"kleinen left$of ist eigentlich nichts be-"
  374. 51035 [153]"sonderes."
  375. 51040 [153]:[153]"(NULL)oegliche (NULL)ichtungen :  (NULL)esten":[137] 1000
  376. 51100 [143] ///  automat  (11x)
  377. 51105 [153]"str$u stehst auf dem (NULL)arktplatz deines"
  378. 51110 [153]"str$orfes - sofern man das noch (NULL)arktplatz"
  379. 51115 [153]"nennen kann. atnlles sieht sehr futuris-"
  380. 51120 [153]"tisch aus (kein (NULL)under, du bist ja auch"
  381. 51125 [153]"in der (NULL)ukunft!). (NULL)or dir steht ein rot-";
  382. 51130 [153]"weisser lenoco-lenola atnutomat welchen eine"
  383. 51135 [153]"gigantische peekeule im ascrontblech ziert."
  384. 51140 [153]"(NULL)ie die wohl da hin gekommen sein mag?"
  385. 51145 [153]"str$as (NULL)eil sieht nich' so aus als ob es"
  386. 51150 [153]"noch funktionieren wuerde."
  387. 51155 [139] geld[178]0 [167][153]"str$u siehst :  contpeekares chr$eldwait"
  388. 51160 [153]"(NULL)oegliche (NULL)ichtungen :  (NULL), (NULL), (NULL)":[137] 1000
  389. 51200 [143] ////  wesen wartet
  390. 51205 [153]"str$u sitzt mit dem (NULL)esen am (NULL)resen. (..."
  391. 51210 [153]"und was sich reimt...). vals schaut dich"
  392. 51215 [153]"so an als ob es sagen wollte 'peekist str$u"
  393. 51220 [153]"(NULL)och (NULL)icht (NULL)ieder left$ier?'."
  394. 51225 [153]:[153]"str$u siehst  cont(NULL)esenwait"
  395. 51230 [153]"(NULL)oeglich (NULL)ichtungen :  (NULL)sten":[137] 1000
  396. 51300 [143] ////  wesen zufrieden
  397. 51305 [153]"str$as (NULL)esen sitzt zufrieden an einem"
  398. 51310 [153]"(NULL)isch in der valcke und schmoekert in der"
  399. 51315 [153]"(NULL)str$-peek(NULL)(NULL)."
  400. 51320 [153]"str$ie peekar ist ansonsten leer. (NULL)o frueh am"
  401. 51325 [153]"(NULL)orgen ist halt noch nicht so viel (NULL)olk"
  402. 51330 [153]"unterwegs!"
  403. 51335 [153]:[153]"(NULL)oegliche (NULL)ichtungen :  (NULL)sten":[137] 1000
  404. 55000 [143] ///////  titel  ////////
  405. 55010 [153]"load            (NULL)ternen - left$ero"
  406. 55020 [153]"systoandposnewnewposandtoconttoandposnewnewposandtosystoandposnewnewposandtoconttoandposnewnewposandtosystoandposnewnewposandto";
  407. 55030 [153]"conttab(usrfrenewnewwaitfreusrtab(systab(usrfrenewnewwaitfreusrtab(conttab(usrfrenewnewwaitfreusrtab(systab(usrfrenewnewwaitfreusrtab(conttab(usrfrenewnewwaitfreusrtab("
  408. 55040 [142]:[143] ********************
  409. 60000 [143] ****************************
  410. 60005 [143] ****     hilfe          ****
  411. 60010 [153]"loadatnlso nochmal:"
  412. 60015 [153]"peekei (NULL)ichtungen reicht der atnnfangsbuch-"
  413. 60020 [153]"stabe, bei (NULL)erben bitte gegebenenfalls"
  414. 60025 [153]"das (NULL)bjekt dazuschreiben und immer al-"
  415. 60030 [153]"les kleinschreiben."
  416. 60035 [153]"(NULL)oegliche (NULL)erben :"
  417. 60040 [153]"n,norden, s,sueden, o,osten, w,westen"
  418. 60045 [153]"hilfe, verben, blick, blicke, liste, in-";
  419. 60050 [153]"ventar, load, lade, save, sichern"
  420. 60055 [153]"ascolgende (NULL)erben benoetigen ein (NULL)bjekt:"
  421. 60060 [153]"lies, lese, kauf, kaufe, nimm, nehme"
  422. 60065 [153]"gib, gebe, tritt, trete, frag, frage"
  423. 60070 [153]"benutz, benutze, trink, trinke"
  424. 60080 [153][163]28)"cont - (NULL)aste - wait"
  425. 60090 [151] 198,0:[146] 198,1:[137] 100
  426. 60100 [143] *****************************
  427. 60105 [143] ****     liste           ****
  428. 60110 [153]"loadstr$u besitzt folgende str$inge :"
  429. 60115 [139] geld[178]1 [167] [153]"einen 17,50 len(NULL) (NULL)lenleft$valright$(NULL)"
  430. 60120 [139] pdbox[178]1 [167] [153]"eine  (NULL)str$-peek(NULL)(NULL)"
  431. 60125 [139] laser[178]1 [167] [153]"ein   (NULL)aserschwert"
  432. 60130 [139] do[178]1[167][153]"einen str$onnergurgler"
  433. 60140 [153]:[137] 60080
  434. 61000 [143] *****************************
  435. 61010 [143]           fertig
  436. 61020 [143] *****************************
  437. 61030 [151] 49152,la:[151]49153,do
  438. 61040 [153]"loadprint(NULL)uper, str$u hast das atndv geloest. (NULL)aja,"
  439. 61050 [153]"so schwer war's ja auch nicht."
  440. 61060 [153]"ascreu str$ich trotzdem auf die"
  441. 61070 [153]"valndversion"
  442. 61080 [137] 61080
  443. 63000 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  444. 63010 [153]"load(NULL)o atndventurer.
  445. 63020 print"[196]ie [211]tory und deine [193]ufgabe kennst [196]u"
  446. 63030 print"ja - [196]u musst zum [210]aumhafen gelangen."
  447. 63040 print"[196]a dieser [212]eil nur als [215]erbung und"
  448. 63050 print"[197]instimmung gedacht ist ist er relativ"
  449. 63060 print"leicht. [215]enn [196]u ihn geloest und [204]ust"
  450. 63070 print"auf mehr davon hast dann schreib' mir"
  451. 63080 print"[196]eine [201]deen."
  452. 63090 print "    [201]ch zaehl auf [196][201][195][200].
  453. 63100 [153][163]25)"peekanana mid$ones"
  454. 63110 [137] 60080
  455.